R Markdown

setwd("~/Desktop/boulder_map")

boulder_th <- readOGR(dsn="OSMP_TH", layer = "OSMP_TH")
## OGR data source with driver: ESRI Shapefile 
## Source: "/Users/garrettsmith/Desktop/boulder_map/OSMP_TH", layer: "OSMP_TH"
## with 37 features
## It has 33 fields
boulder_trails <- readOGR(dsn="OSMP_Trails", layer = "OSMP_Trails")
## OGR data source with driver: ESRI Shapefile 
## Source: "/Users/garrettsmith/Desktop/boulder_map/OSMP_Trails", layer: "OSMP_Trails"
## with 573 features
## It has 16 fields
## Integer64 fields read as strings:  OBJECTID RID TRLID MEASUREDFE
boulder_map2 <- leaflet()%>%
  addProviderTiles(providers$OpenStreetMap.HOT, group = "Streets")%>%
  addProviderTiles(providers$OpenTopoMap,group='Topography') %>%
  addLayersControl(baseGroups=c('Streets','Topography'),
                   options = layersControlOptions(collapsed = F, autoZIndex = T)) %>% 
  setView(-105.2705, 40.0150, zoom = 11)%>%
   addPolylines(data = boulder_trails, stroke = TRUE, color = "blue", weight = 2, opacity = 1.0,
               fill = FALSE, smoothFactor = 1, popup = ~ TRAILNAME)%>%
  addCircleMarkers(data = boulder_th, lng = ~ Long, lat = ~ Lat, radius = 5, stroke = FALSE,   
                   fill = TRUE, fillColor = "red", fillOpacity = 1.0, popup = ~ AccessName)%>%
  addLegend(position = "bottomright", labels = c("Trailheads", "Trails"), colors = c("red", "blue"),
            opacity = 1.0)

boulder_map2

Including Plots

.